home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / xwindows / demos / xfract_1.z / xfract_1 / xfractint-1.06 / intro.c < prev    next >
C/C++ Source or Header  |  1992-09-28  |  3KB  |  131 lines
  1.  
  2. /*
  3.  * intro.c
  4.  *
  5.  * FRACTINT intro screen (authors & credits)
  6.  *
  7.  *
  8.  */
  9.  
  10. #include <stdio.h>
  11. #include <time.h>
  12. #ifndef XFRACT
  13. #include <dos.h>
  14. #endif
  15.  
  16. #include "fractint.h"
  17. #include "helpdefs.h"
  18. #include "prototyp.h"
  19.  
  20. /* stuff from fractint */
  21.  
  22. extern int  lookatmouse;
  23. extern long timer_start;
  24. extern int  helpmode;
  25. extern int  extraseg;
  26.  
  27.  
  28. #ifdef XFRACT
  29. extern int slowdisplay;
  30. #endif
  31.  
  32.  
  33. void intro_overlay(void) { }
  34.  
  35.  
  36. void intro(void)
  37.    {
  38.    int         toprow, botrow, i, j, delaymax;
  39.    char      oldchar;
  40.    int         authors[100];        /* this should be enough for awhile */
  41.    char far *credits;
  42.    char far *screen_text;
  43.    int         oldlookatmouse;
  44.    int         oldhelpmode;
  45.  
  46.    ENTER_OVLY(OVLY_INTRO);
  47.  
  48.    timer_start -= clock_ticks();        /* "time out" during help */
  49.    oldlookatmouse = lookatmouse;
  50.    oldhelpmode = helpmode;
  51.    lookatmouse = 0;            /* de-activate full mouse checking */
  52.  
  53.    screen_text = MK_FP(extraseg, 0);
  54.  
  55.    i = 32767 + read_help_topic(INTRO_AUTHORS, 0, 32767, screen_text);
  56.    screen_text[i++] = '\0';
  57.    credits = screen_text + i;
  58.    i = 32767 + read_help_topic(INTRO_CREDITS, 0, 32767, credits);
  59.    credits[i++] = '\0';
  60.  
  61.    j = 0;
  62.    authors[j] = 0;        /* find the start of each credit-line */
  63.    for (i = 0; credits[i] != 0; i++)
  64.       if (credits[i] == 10)
  65.      authors[++j] = i+1;
  66.    authors[j+1] = i;
  67.  
  68.    helptitle();
  69.    toprow = 8;
  70. #ifndef XFRACT
  71.    botrow = 21;
  72. #else
  73.    botrow = 20;
  74.    putstringcenter(21,0,80,C_TITLE,
  75.    "Unix/X port of fractint by Ken Shirriff [shirriff@sprite.Berkeley.EDU]");
  76. #endif
  77.    putstringcenter(1,0,80,C_TITLE, "Press ENTER for main menu, F1 for help.");
  78.    putstring(2,0,C_CONTRIB,screen_text);
  79.    setattr(2,0,C_AUTHDIV1,80);
  80.    setattr(7,0,C_AUTHDIV1,80);
  81.    setattr(22,0,C_AUTHDIV2,80);
  82.    setattr(3,0,C_PRIMARY,320);
  83.    setattr(23,0,C_TITLE_LOW,160);
  84.    for (i = 3; i < 7; ++i)
  85.       setattr(i,20,C_CONTRIB,60);
  86.    setattr(toprow,0,C_CONTRIB,14*80);
  87.    i = botrow - toprow;
  88.    oldchar = credits[authors[i+1]];
  89.    credits[authors[i+1]] = 0;
  90.    putstring(toprow,0,C_CONTRIB,credits);
  91.    credits[authors[i+1]] = oldchar;
  92.    delaymax = 10;
  93.    movecursor(25,80); /* turn it off */
  94.    helpmode = HELPMENU;
  95.    while (! keypressed())
  96.       {
  97. #ifdef XFRACT
  98.       if (slowdisplay) delaymax *= 15;
  99. #endif
  100.       for (j = 0; j < delaymax && !(keypressed()); j++)
  101.      delay(100);
  102.       if (keypressed() == 32)
  103.      {    /* spacebar pauses */
  104.      getakey();
  105. #ifndef XFRACT
  106.          while (!keypressed()) ;
  107. #else
  108.          waitkeypressed(0);
  109. #endif
  110.      if (keypressed() == 32)
  111.         getakey();
  112.      }
  113.       delaymax = 15;
  114.       scrollup(toprow, botrow);
  115.       i++;
  116.       if (credits[authors[i]] == 0)
  117.      i = 0;
  118.       oldchar = credits[authors[i+1]];
  119.       credits[authors[i+1]] = 0;
  120.       putstring(botrow,0,C_CONTRIB,&credits[authors[i]]);
  121.       setattr(botrow,0,C_CONTRIB,80);
  122.       credits[authors[i+1]] = oldchar;
  123.       movecursor(25,80); /* turn it off */
  124.       }
  125.  
  126.    lookatmouse = oldlookatmouse;        /* restore the mouse-checking */
  127.    helpmode = oldhelpmode;
  128.    EXIT_OVLY;
  129.    return ;
  130.    }
  131.